unit UserGroupManagerEditUsers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDialog, StdCtrls, CheckLst, Buttons, cxGraphics,
  cxLookAndFeels, cxLookAndFeelPainters, Menus, ExtCtrls,
  dxSkinsCore, dxSkinsDefaultPainters, dxSkinsForm, cxButtons;

type
  TfrmUserGroupManagerEditUsers = class(TfrmBaseDialog)
    clhkUser: TCheckListBox;
    lbxUserIDHide: TListBox;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserGroupManagerEditUsers: TfrmUserGroupManagerEditUsers;

implementation



{$R *.dfm}

procedure TfrmUserGroupManagerEditUsers.BitBtn3Click(Sender: TObject);
var
  i: integer;
begin
  inherited;
  for i := 0 to clhkUser.Items.Count - 1 do
  begin
    clhkUser.Checked[i] := true;
  end;

end;

procedure TfrmUserGroupManagerEditUsers.BitBtn4Click(Sender: TObject);
var
  i: integer;
begin
  inherited;
  for i := 0 to clhkUser.Items.Count - 1 do
  begin
    clhkUser.Checked[i] := false;
  end;

end;

procedure TfrmUserGroupManagerEditUsers.btnCancelClick(Sender: TObject);
begin
  inherited;
  close;
end;

end.

